home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Almathera Ten Pack 3: CDPD 3
/
Almathera Ten on Ten - Disc 3: CDPD3.iso
/
scope
/
201-220
/
scopedisk202
/
bbbbs2
/
rexx
/
bumptime.baud
< prev
next >
Wrap
Text File
|
1995-03-19
|
321b
|
12 lines
/* BumpTime.baud */
oldminutes=GETCLIP('BBS_minutes')
oldcom=GETCLIP('BBS_COMMAND')
minutes=Request(100,100,"Enter new minutes",oldminutes,,'CANCEL','BAUD')
IF DATATYPE(minutes,'N') & minutes>0 & minutes~=oldminutes THEN
DO
CALL SETCLIP('BBS_minutes',minutes)
CALL SETCLIP('BBS_COMMAND',oldcom'T')
END
EXIT;